1 FORZ=54272TO54295:POKEZ,0:NEXT:POKE54296,15:POKE54277,4:AA=54272:BB=54273
10 PRINTCHR$(147)CHR$(5):POKE53280,0:POKE53281,0:POKE54275,8:CC=54276
15 FORZ=1TO10:PRINT:NEXT:PRINTTAB(9)"PLEASE TURN UP VOLUME.":PRINT
17 PRINTTAB(9)"PRESS RUN/STOP TO STOP."
18 FORT=1TO2000:NEXT:PRINTCHR$(147)
20 K=INT(959*RND(0))+1024:B=160:C=54272
21 P=INT(11*RND(1))+1:H(1)=INT(150*RND(1))+1:L(1)=INT(150*RND(1))+1
22 Q=INT(11*RND(1))+1:H(2)=INT(150*RND(1))+1:L(2)=INT(150*RND(1))+1
23 R=INT(11*RND(1))+1:H(3)=INT(150*RND(1))+1:L(3)=INT(150*RND(1))+1
24 S=INT(11*RND(1))+1:H(4)=INT(150*RND(1))+1:L(4)=INT(150*RND(1))+1
25 T=INT(14*RND(1))+2
26 U=INT(14*RND(1))+2
27 V=INT(14*RND(1))+2
28 W=INT(14*RND(1))+2
30 FORX=1TOP:POKEK,B:POKEK+C,T:POKEAA,H(1):POKEBB,L(1):POKECC,65:K=K+41
40 IFK>1983THEN100
50 IF(K-1063)/40-INT((K-1063)/40)=0THEN300
60 POKECC,64:NEXT
100 FORX=1TOQ:POKEK,B:POKEK+C,U:POKEAA,H(2):POKEBB,L(2):POKECC,65:K=K-39
110 IFK<1064THEN30
120 IF(K-1063)/40-INT((K-1063)/40)=0THEN200
130 POKECC,64:NEXT
200 FORX=1TOR:POKEK,B:POKEK+C,V:POKEAA,H(3):POKEBB,L(3):POKECC,65:K=K-41
210 IFK<1064THEN300
220 IF(K-1024)/40-INT((K-1024)/40)=0THEN100
230 POKECC,64:NEXT
300 FORX=1TOS:POKEK,B:POKEK+C,W:POKEAA,H(4):POKEBB,L(4):POKECC,65:K=K+39
310 IF(K-1024)/40-INT((K-1024)/40)=0THEN30
320 IFK>1983THEN200
330 POKECC,64:NEXT
340 GOTO21